# small test for the speed of execution

0 10 "computing, hold on..." -->

N: 12345678 . # iterations

123           # start value

N
@'
  $0 +x100000 % 0 = ?
    "9" $1 10 * N / - -> 0 10 "0%" -->
  .

  ><

  # TESTED OPERATION HERE:
  $0 10000 < ? $0 2 + >< 8000 >< 7 * ++ / + ; 9000 - .  
  # ^this expression in C: (x < 10000 ? (x + 2 + 8000 / (7 * x + 1)) : (x - 9000))

  ><
  --
.
^

# print result, to prevent optimizations:
$0 1000 / 10 % "0" + ->
$0 100 / 10 % "0" + ->
$0 10 / 10 % "0" + ->
10 % "0" + ->
10 ->

0 10 "done" -->
